home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1998 March / Macworld (1998-03) (Disk 1).dmg / Shareware World / Info / For Developers / GhostScript 5.10 / MacGS-510 / files / gs_ccfnt.ps < prev    next >
Text File  |  1996-11-21  |  3KB  |  94 lines
  1. %    Copyright (C) 1994, 1996 Aladdin Enterprises.  All rights reserved.
  2. % 
  3. % This file is part of Aladdin Ghostscript.
  4. % 
  5. % Aladdin Ghostscript is distributed with NO WARRANTY OF ANY KIND.  No author
  6. % or distributor accepts any responsibility for the consequences of using it,
  7. % or for whether it serves any particular purpose or works at all, unless he
  8. % or she says so in writing.  Refer to the Aladdin Ghostscript Free Public
  9. % License (the "License") for full details.
  10. % 
  11. % Every copy of Aladdin Ghostscript must include a copy of the License,
  12. % normally in a plain ASCII text file named PUBLIC.  The License grants you
  13. % the right to copy, modify and redistribute Aladdin Ghostscript, but only
  14. % under certain conditions described in the License.  Among other things, the
  15. % License requires that the copyright notice and this notice be preserved on
  16. % all copies.
  17.  
  18. % Find and register all the precompiled font operators in systemdict.
  19.  
  20. /registerfont            % <fontname> <fontdict> registerfont <font>
  21.  { DEBUG { (Registering ) print 1 index = } if
  22.    dup begin
  23.      Encoding type /nametype eq
  24.       { Encoding .findencoding /Encoding exch def
  25.       }
  26.      if
  27.      dup /PrefEnc known
  28.       { PrefEnc type /nametype eq
  29.      { PrefEnc .findencoding /PrefEnc exch def
  30.      }
  31.     if
  32.       }
  33.      if
  34.      dup /FDepVector known
  35.       { /FDepVector [ FDepVector
  36.      { .FontDirectory 1 index .knownget
  37.         { exch pop }
  38.         { ccfonts 1 index .knownget
  39.            { registerfont
  40.            }
  41.            { Fontmap 1 index known
  42.           { findfont }
  43.           { pop NullFont }
  44.          ifelse
  45.            }
  46.           ifelse
  47.         }
  48.        ifelse
  49.      }
  50.     forall ] readonly def
  51.       }
  52.      if
  53.    end
  54.    % Use the value of definefont appropriate at run-time, not bind-time
  55.    /definefont load exec
  56.  } bind odef
  57. % Bind recursive call (bind descends into oparrays: feature!)
  58. /registerfont dup load bind def
  59.  
  60. /.loadinitialfonts {
  61.    //.loadinitialfonts exec
  62.    /ccfonts mark
  63.      0 1 null .getccfont 1 sub { .getccfont dup /FontName get exch } for
  64.    .dicttomark def
  65.    ccfonts
  66.     { .FontDirectory 2 index known { pop pop } { registerfont pop } ifelse }
  67.    forall
  68.   currentdict /ccfonts .undef
  69. } bind def
  70.  
  71. currentdict /registerfont .undef
  72.  
  73.  
  74. % If we're in a Level 2 system but running in Level 1 mode,
  75. % register the fonts explicitly as resources.
  76. % This is a bit of a hack, but doing better is too much work.
  77.  
  78. /level2dict where
  79.  { pop /findresource where
  80.     {        % Level 2 system, Level 2 mode
  81.       pop
  82.     }
  83.     {        % Level 2 system, Level 1 mode
  84.       /Font /Category level2dict /findresource get exec begin
  85.       .FontDirectory
  86.        { dup .gcheck { Instances } { LocalInstances } ifelse
  87.      3 1 roll [exch 0 -1] .growput
  88.        }
  89.       forall end
  90.     }
  91.    ifelse
  92.  }
  93. if
  94.